home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / MATH / RNDGEN10 / TESTRAND.PAS < prev   
Pascal/Delphi Source File  |  1993-12-06  |  505b  |  24 lines
  1. {$A+,B-,D+,E+,F-,G-,I+,L+,N-,O-,P-,Q-,R+,S+,T-,V+,X+,Y+}
  2. {$M 16384,0,655360}
  3. program testrand;
  4.   uses rangen;
  5.  
  6.   {generates two independent streams of uniform random numbers}
  7.  
  8. VAR r1, r2 : real;
  9.     seed1, seed2 : longint;
  10.     i : integer;
  11.  
  12. BEGIN
  13.  
  14.   write ('enter seed1, seed2 = ' ); readln ( seed1, seed2 );
  15.   for i := 1 TO 20 DO
  16.     BEGIN
  17.       r1 := unirandom(seed1);
  18.       r2 := unirandom(seed2);
  19.       writeln ( seed1:12, r1:12:8, seed2:12, r2:12:8 );
  20.     END;
  21.   readln;
  22.  
  23. END.
  24.